! name: ajt16
! type: ArchiCAD Door File
! ***** 3D script *****

mat1 = c
mat2 = d


R = (0.0275^2 + (a/4-0.06)^2) / 2 / 0.0275
R1=R+0.015
R2=R-0.015
resol 360

prism_   22, 0.045, 
    -a/2, 0, 15,
     a/2, 0, 15,
     a/2, b, 15,
    -a/2, b, 15,
    -a/2, 0, -1,

    -a/2+0.12, 0.16, 15,
     a/2-0.12, 0.16, 15,
     a/2-0.12, 0.665, 15,
    -a/2+0.12, 0.665, 15,
    -a/2+0.12, 0.16, -1,


    -a/2+0.12, 0.785, 15,
     a/2-0.12, 0.785, 15,
     a/2-0.12, b-0.175, 79,
     a/2-0.12, b-0.175+R,  900,
     a/4-0.06, b-0.12-0.055/2, 3079,
     0, b-0.12-R, 900,

     0, b-0.12, 3079,

     0, b-0.12-R, 900,
    -a/4+0.06, b-0.12-0.055/2, 3079,
    -a/2+0.12, b-0.175+R,  900,
    -a/2+0.12, b-0.175, 3079,
    -a/2+0.12, 0.785, -1

prism_  5, 0.045,
    -a/2+0.155,0.195, 15,
     a/2-0.155,0.195, 15,
     a/2-0.155, 0.63, 15,
    -a/2+0.155, 0.63, 15,
    -a/2+0.155,0.195, -1 

addz 0.0125

prism_ 10, 0.02,
    -a/2+0.12, 0.16, 15,
     a/2-0.12, 0.16, 15,
     a/2-0.12, 0.665, 15,
    -a/2+0.12, 0.665, 15,
    -a/2+0.12, 0.16, -1,


    -a/2+0.155,0.195, 15,
     a/2-0.155,0.195, 15,
     a/2-0.155, 0.63, 15,
    -a/2+0.155, 0.63, 15,
    -a/2+0.155,0.195, -1


del 1
addz -0.005

kx = -a/2+0.135
ky = 0.8

dx = (a-0.135*2-0.015) / 2
dy = (b-0.175-0.785-0.015*4) / 3


for iy = 1 to 2 step 1

    for ix = 1 to 2 step 1

        put kx, ky, 15,
            kx+dx, ky, 15,
            kx+dx, ky+dy, 15,
            kx, ky+dy, 15,
            kx, ky, -1

        kx = kx+dx+0.015

    next ix

    kx = -a/2+0.135

    ky = ky+dy+0.015

next iy

prism_ 28+nsp/3, 0.055,
    -a/2+0.12, 0.785, 15,
     a/2-0.12, 0.785, 15,
     a/2-0.12, b-0.175, 79,
     a/2-0.12, b-0.175+R,  900,
     a/4-0.06, b-0.12-0.055/2, 3079,
     0, b-0.12-R, 900,

     0, b-0.12, 3079,

     0, b-0.12-R, 900,
    -a/4+0.06, b-0.12-0.055/2, 3079,
    -a/2+0.12, b-0.175+R,  900,
    -a/2+0.12, b-0.175, 3079,
    -a/2+0.12, 0.785, -1,

    -a/2+0.135, b-0.19-dy, 15,
    -0.0075, b-0.19-dy, 15,
    -0.0075,  b-0.12+R-(R1*cos(asn(0.0075/R1))), 79, 
     0, b-0.12-R, 900,
    -(R2*((a/4)-0.06))/R, b-0.12-R+R2*((R-0.055/2)/R), 3079,
    -a/2+0.12, b-0.175+R,  900,
    -a/2+0.135,  b-0.175+R-(R1*cos(asn(0.015/R1))), 3079, 
    -a/2+0.135, b-0.19-dy, -1,

    0.0075, b-0.19-dy, 15,
    a/2-0.135, b-0.19-dy, 15,
    a/2-0.135, b-0.175+R-(R1*cos(asn(0.015/R1))), 79,
    a/2-0.12, b-0.175+R,  900,
    (R2*((a/4)-0.06))/R, b-0.12-R+R2*((R-0.055/2)/R), 3079,       
    0, b-0.12-R, 900,
    0.0075,  b-0.12+R-(R1*cos(asn(0.0075/R1))), 3079,
    0.0075, b-0.19-dy, -1,   

    use (nsp)

del 1
material mat1
addz 0.019

for ii = 1 to 2*2 step 1

    prism_ 5, 0.007,
        get (15)

next ii

del 1
addz 0.019

prism_ 8, 0.007,
     -a/2+0.135, b-0.19-dy, 15,
    -0.0075, b-0.19-dy, 15,
    -0.0075,  b-0.12+R-(R1*cos(asn(0.0075/R1))), 79, 
     0, b-0.12-R, 900,
    -(R2*((a/4)-0.06))/R, b-0.12-R+R2*((R-0.055/2)/R), 3079,
    -a/2+0.12, b-0.175+R,  900,
    -a/2+0.135,  b-0.175+R-(R1*cos(asn(0.015/R1))), 3079, 
    -a/2+0.135, b-0.19-dy, -1

prism_ 8, 0.007,
    0.0075, b-0.19-dy, 15,
    a/2-0.135, b-0.19-dy, 15,
    a/2-0.135, b-0.175+R-(R1*cos(asn(0.015/R1))), 79,
    a/2-0.12, b-0.175+R,  900,
    (R2*((a/4)-0.06))/R, b-0.12-R+R2*((R-0.055/2)/R), 3079,       
    0, b-0.12-R, 900,
    0.0075,  b-0.12+R-(R1*cos(asn(0.0075/R1))), 3079,
    0.0075, b-0.19-dy, -1


del 1
addz 0.045
addy 0.95
addx -a/2+0.06

call "handle_1" mat2

addz -0.045
mulz -1

call "handle_1" mat2
